home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / msgbase.scr < prev    next >
Encoding:
Text File  |  1995-03-03  |  1.7 KB  |  60 lines
  1. /*
  2.  * Octopus, The Atari ST(e)/TT/Falcon GEM/TOS Bulletin Board System
  3.  * written by me (Koos Kuil) on FidoNet: 2:282/397, NeST: 90:500/103
  4.  *
  5.  * Example English OctoScript file written on 07 Jun 1994
  6.  *
  7.  * ------------------------------------------------------------------
  8.  * MSGBASE.SCR   Message base programm functions & loop
  9.  *
  10.  */
  11.  
  12. :msgbase
  13. Do
  14.    Convert MailMenu
  15.    DoChoice
  16.       Selectchoice
  17.          Case A   Do  GetMsgAreaList ATARINET
  18.                       ReadMessages           EnddoNoarea
  19.          Case F   Do  GetMsgAreaList FANET10
  20.                       ReadMessages           EnddoNoarea
  21.          Case G   Do  GetMsgAreaList GERMAN
  22.                       ReadMessages           EnddoNoarea
  23.          Case N   Do  GetMsgAreaList NEST
  24.                       ReadMessages           EnddoNoarea
  25.  
  26.          Case S   Cls DoMailScan FULL
  27.          Case W   SetSysopMessageArea         WriteMessage
  28.          Case R   Bulletin echorule.txt
  29.          Case !   Gosub logoff
  30.       Endselect
  31.    EnddoChoice *
  32. Enddo *
  33. Return
  34.  
  35. :qwkreader
  36. Do
  37.    Convert QwkMenu 
  38.    DoChoice
  39.       SelectChoice
  40.         Case 1  ChangeQwkNdx
  41.         Case 2  ChangeQwkBulletins
  42.         Case 3  ResetLastread
  43.         Case 4  UnmarkQwkAreas
  44.         Case 5  SetQwkMaxMsgs
  45.  
  46.         Case 6  GetMsgAreaList FULL      WriteQwkOneAll
  47.         Case 7  WriteQwkMarkedAll
  48.         Case 8  GetMsgAreaList FULL   WriteQwkOneNew
  49.         Case 9  WriteQwkMarkedNew
  50.  
  51.         Case D  WriteQwkMarkedDays
  52.         Case M  MarkQwkAreas FULL
  53.         Case U  UploadQwkReplys       GetKey
  54.         Case !  Gosub 'logoff'
  55.       EndSelect
  56.    EnddoChoice *
  57. Enddo *
  58. Return
  59.  
  60. /* End MSGBASE.SCR */